home *** CD-ROM | disk | FTP | other *** search
/ Grand Slam 3 / Grand Slam 3.iso / 030 / airpt119.arj / AIRPT043.API < prev    next >
Text File  |  1995-09-26  |  2KB  |  105 lines
  1. ; Fichier include SCASM AIRPT043.API pour POLY3D TYPE = &LISBUIS1
  2. ; Include SCASM FILE AIRPT043.API for POLY3D TYPE = &LISBUIS1
  3.  
  4. ; création texture : eric leroy PVF 131
  5. ; création fichier objet : eric leroy PVF 131 
  6. ;                        : michel manelphe PVF 264 
  7.  
  8. ; Dessin d'une lisière: haie dense
  9. ; couleur 1 = extension     127     -> normal
  10. ;                           180     -> extension 2/3
  11. ; couleur 2 = position des extrémités : =extension-10
  12. ; couleur 3 = 0
  13. ; hauteur 20 m / scale 1
  14. ; Note: longueur = 2 * couleur1 * scale
  15. ;       largeur  = 20 * scale
  16.  
  17.  
  18. Area( b  %1  %2  %3 )
  19.     
  20.     PerspectiveCall( :D0 )
  21.     Jump( : )
  22.  
  23. :D0
  24.     Perspective
  25.     RefPoint( 2 :D3  %4  %1  %2 v1= %10 E= %11 )
  26.     RotatedCall( :D2  0  0  %5 )
  27.     Return
  28.  
  29. :D2
  30.     Points( 0
  31.       0      0    -%6      ;face
  32.       0     20    -%6
  33.       0     20     %6
  34.       0      0     %6
  35.  
  36.      -9      0    -%7      ;extremité 1
  37.      -9     20    -%7
  38.      10     20    -%7
  39.      10      0    -%7
  40.  
  41.      -9      0     %7      ;extrémité 2
  42.      -9     20     %7
  43.      10     20     %7
  44.      10      0     %7
  45.      )
  46.  
  47.     Bitmap( AIRPT005.OAV  0 0 1 0 )
  48.     BitmapMode( 1 )
  49.     
  50.     Inst_7D
  51.     TexPoly( a
  52.     4      0     153
  53.     5      0     173
  54.     6     20     173
  55.     7     20     153
  56.     )              
  57.                
  58.     Inst_7D
  59.     TexPoly( a
  60.     8     20     153
  61.     9     20     173
  62.        10      0     173
  63.        11      0     153
  64.     )              
  65.                
  66.     Inst_7D
  67.     TexPoly( a
  68.     0     20     153
  69.     1     20     173
  70.     2    255     173
  71.     3    255     153
  72.     )
  73.  
  74.     Inst_7D
  75.     TexPoly( ai
  76.     4      0     153
  77.     5      0     173
  78.     6     20     173
  79.     7     20     153
  80.     )              
  81.                
  82.     Inst_7D
  83.     TexPoly( ai
  84.     8     20     153
  85.     9     20     173
  86.        10      0     173
  87.        11      0     153
  88.     )              
  89.                
  90.     Inst_7D
  91.     TexPoly( ai
  92.     0     20     153
  93.     1     20     173
  94.     2    255     173
  95.     3    255     153
  96.     )
  97.     BitmapMode( 0 )        
  98.     Return
  99.  
  100. :D3
  101.     Return
  102.  
  103. EndA
  104.  
  105.